3.2.25 \(\int \frac {\csc ^2(e+f x)}{\sqrt {a+b \tan ^2(e+f x)}} \, dx\) [125]

Optimal. Leaf size=30 \[ -\frac {\cot (e+f x) \sqrt {a+b \tan ^2(e+f x)}}{a f} \]

[Out]

-cot(f*x+e)*(a+b*tan(f*x+e)^2)^(1/2)/a/f

________________________________________________________________________________________

Rubi [A]
time = 0.05, antiderivative size = 30, normalized size of antiderivative = 1.00, number of steps used = 2, number of rules used = 2, integrand size = 25, \(\frac {\text {number of rules}}{\text {integrand size}}\) = 0.080, Rules used = {3744, 270} \begin {gather*} -\frac {\cot (e+f x) \sqrt {a+b \tan ^2(e+f x)}}{a f} \end {gather*}

Antiderivative was successfully verified.

[In]

Int[Csc[e + f*x]^2/Sqrt[a + b*Tan[e + f*x]^2],x]

[Out]

-((Cot[e + f*x]*Sqrt[a + b*Tan[e + f*x]^2])/(a*f))

Rule 270

Int[((c_.)*(x_))^(m_.)*((a_) + (b_.)*(x_)^(n_))^(p_), x_Symbol] :> Simp[(c*x)^(m + 1)*((a + b*x^n)^(p + 1)/(a*
c*(m + 1))), x] /; FreeQ[{a, b, c, m, n, p}, x] && EqQ[(m + 1)/n + p + 1, 0] && NeQ[m, -1]

Rule 3744

Int[sin[(e_.) + (f_.)*(x_)]^(m_)*((a_) + (b_.)*((c_.)*tan[(e_.) + (f_.)*(x_)])^(n_))^(p_.), x_Symbol] :> With[
{ff = FreeFactors[Tan[e + f*x], x]}, Dist[c*(ff^(m + 1)/f), Subst[Int[x^m*((a + b*(ff*x)^n)^p/(c^2 + ff^2*x^2)
^(m/2 + 1)), x], x, c*(Tan[e + f*x]/ff)], x]] /; FreeQ[{a, b, c, e, f, n, p}, x] && IntegerQ[m/2]

Rubi steps

\begin {align*} \int \frac {\csc ^2(e+f x)}{\sqrt {a+b \tan ^2(e+f x)}} \, dx &=\frac {\text {Subst}\left (\int \frac {1}{x^2 \sqrt {a+b x^2}} \, dx,x,\tan (e+f x)\right )}{f}\\ &=-\frac {\cot (e+f x) \sqrt {a+b \tan ^2(e+f x)}}{a f}\\ \end {align*}

________________________________________________________________________________________

Mathematica [A]
time = 0.28, size = 49, normalized size = 1.63 \begin {gather*} -\frac {\cot (e+f x) \sqrt {(a+b+(a-b) \cos (2 (e+f x))) \sec ^2(e+f x)}}{\sqrt {2} a f} \end {gather*}

Antiderivative was successfully verified.

[In]

Integrate[Csc[e + f*x]^2/Sqrt[a + b*Tan[e + f*x]^2],x]

[Out]

-((Cot[e + f*x]*Sqrt[(a + b + (a - b)*Cos[2*(e + f*x)])*Sec[e + f*x]^2])/(Sqrt[2]*a*f))

________________________________________________________________________________________

Maple [A]
time = 0.28, size = 57, normalized size = 1.90

method	result	size
default	\(-\frac {\sqrt {\frac {a \left (\cos ^{2}\left (f x +e \right )\right )-\left (\cos ^{2}\left (f x +e \right )\right ) b +b}{\cos \left (f x +e \right )^{2}}}\, \cos \left (f x +e \right )}{f \sin \left (f x +e \right ) a}\)	\(57\)

Verification of antiderivative is not currently implemented for this CAS.

[In]

int(csc(f*x+e)^2/(a+b*tan(f*x+e)^2)^(1/2),x,method=_RETURNVERBOSE)

[Out]

-1/f*((a*cos(f*x+e)^2-cos(f*x+e)^2*b+b)/cos(f*x+e)^2)^(1/2)*cos(f*x+e)/sin(f*x+e)/a

________________________________________________________________________________________

Maxima [A]
time = 0.28, size = 32, normalized size = 1.07 \begin {gather*} -\frac {\sqrt {b \tan \left (f x + e\right )^{2} + a}}{a f \tan \left (f x + e\right )} \end {gather*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate(csc(f*x+e)^2/(a+b*tan(f*x+e)^2)^(1/2),x, algorithm="maxima")

[Out]

-sqrt(b*tan(f*x + e)^2 + a)/(a*f*tan(f*x + e))

________________________________________________________________________________________

Fricas [A]
time = 7.86, size = 53, normalized size = 1.77 \begin {gather*} -\frac {\sqrt {\frac {{\left (a - b\right )} \cos \left (f x + e\right )^{2} + b}{\cos \left (f x + e\right )^{2}}} \cos \left (f x + e\right )}{a f \sin \left (f x + e\right )} \end {gather*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate(csc(f*x+e)^2/(a+b*tan(f*x+e)^2)^(1/2),x, algorithm="fricas")

[Out]

-sqrt(((a - b)*cos(f*x + e)^2 + b)/cos(f*x + e)^2)*cos(f*x + e)/(a*f*sin(f*x + e))

________________________________________________________________________________________

Sympy [F]
time = 0.00, size = 0, normalized size = 0.00 \begin {gather*} \int \frac {\csc ^{2}{\left (e + f x \right )}}{\sqrt {a + b \tan ^{2}{\left (e + f x \right )}}}\, dx \end {gather*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate(csc(f*x+e)**2/(a+b*tan(f*x+e)**2)**(1/2),x)

[Out]

Integral(csc(e + f*x)**2/sqrt(a + b*tan(e + f*x)**2), x)

________________________________________________________________________________________

Giac [F]
time = 0.00, size = 0, normalized size = 0.00 \begin {gather*} \text {could not integrate} \end {gather*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate(csc(f*x+e)^2/(a+b*tan(f*x+e)^2)^(1/2),x, algorithm="giac")

[Out]

integrate(csc(f*x + e)^2/sqrt(b*tan(f*x + e)^2 + a), x)

________________________________________________________________________________________

Mupad [B]
time = 12.86, size = 36, normalized size = 1.20 \begin {gather*} -\frac {\mathrm {cot}\left (e+f\,x\right )\,\sqrt {a+\frac {b\,{\sin \left (e+f\,x\right )}^2}{{\cos \left (e+f\,x\right )}^2}}}{a\,f} \end {gather*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

int(1/(sin(e + f*x)^2*(a + b*tan(e + f*x)^2)^(1/2)),x)

[Out]

-(cot(e + f*x)*(a + (b*sin(e + f*x)^2)/cos(e + f*x)^2)^(1/2))/(a*f)

________________________________________________________________________________________